home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / thor / thor_2.4 / updatethor < prev    next >
Text File  |  1996-11-11  |  37KB  |  1,380 lines

  1. ; $Id: UpdateThor 1.4 1996/11/06 19:13:57 pettern Exp pettern $
  2. ;*************************************************************************
  3. ;    Title:
  4. ;        UpdateThor
  5. ;*************************************************************************
  6. ;    Description:
  7. ;        Commodore Installer Script for the Thor 2.4 software
  8. ;*************************************************************************
  9. ;    Authors:
  10. ;       Petter Nilsen
  11. ;          - intro borrowed from Robert Reiswig's CyberGfx installer
  12. ;       
  13. ;*************************************************************************
  14. ;    Still to do:
  15. ;        - THOR.macros might not be correct. Notify user?
  16. ;        - Handle previous installations with one of the env-vars/assigns
  17. ;          missing.
  18. ;        - Show .readme file
  19. ;       - Not delete catalogs/, only the needed dirs
  20. ;
  21. ;*************************************************************************
  22. ;
  23. ;******************************************************
  24. ;***** SET UP OUR VARIABLES AND OTHER SUCH STUFF ******
  25. ;******************************************************
  26.  
  27. ; some useful variables
  28.     (set 
  29.         true             1
  30.         false             0
  31.         yes             true
  32.         no                 false
  33.         is_a_file         1
  34.         is_a_dir         2
  35.         quote             "\""
  36.         newline         "\n"
  37.         tick             "'"
  38.         nothing         ""
  39.         bbspack         0
  40.         inetpack         0
  41.         #inetpackname     "thor24_inet.lha"
  42.         #bbspackname     "thor24_bbs.lha"
  43.         #arexxpackname     "thor24_arexx.lha"
  44.         classact         0
  45.         tcptype         0
  46.         uucptype         0
  47.         cpu             (database "cpu")
  48.         cpu020             (and (<> cpu "68000") (<> cpu "68010"))
  49.         v39             (>= (/ (getversion "exec.library" (resident)) 65536) 39)
  50.  
  51.         #exedtbug (cat "exe.datatype is installed on this machine. This datatype has a bug "
  52.                         "that might caused problems in the datatype filetype recognition "
  53.                         "in THOR on attached files.\nWe recommend that it is removed.\n\n"
  54.                         "Would you like to delete it now?")
  55.     )
  56.  
  57. ; set up our delete options
  58.     (delopts "AskUser" "OkNoDelete" "Force")
  59.  
  60. ; some useful procedures
  61.     ; change userlevel to expert
  62.     (procedure expert_level
  63.         (
  64.             (user 2)
  65.         )
  66.     )
  67.  
  68. ; reset userlevel back to default
  69.     (procedure default_level
  70.         (
  71.             (user default-level)
  72.         )
  73.     )
  74.  
  75. ; store off userlevel
  76.     (procedure save_default_level
  77.         (
  78.             (set default-level @user-level)
  79.         )
  80.     )
  81.  
  82. ; some overused strings
  83. (set omp (cat "One moment please..." newline))
  84.  
  85. (set #classact "\n\n\nThe following is the default Install/Update Installer\n\nProcedure for placing ClassAct on your System.")
  86.  
  87. ;********************************************************************
  88. ; ClassAct Install/Update Default Procedure by:
  89. ; Osma Ahvenlampi - Osma.Ahvenlampi@hut.fi
  90. ;********************************************************************
  91. ; I have disabled the (complete) settings
  92. (working #classact)
  93. ; ************* PLEASE COPY THIS PROCEDURE ALONG WITH THE STRINGS IT USES 
  94. ; ************* TO THE INSTALLER SCRIPT OF YOUR CLASSACT APPLICATION.
  95. ; ************* IT WILL TAKE CARE OF INSTALLING THE CLASSACT CLASSES YOU
  96. ; ************* PROVIDED WITH YOUR APPLICATION TO THE USER'S SYSTEM.
  97.  
  98. ; $VER: ClassAct_Install 1.8 (12.10.96) by Osma Ahvenlampi
  99.  
  100. (set cpu (database "cpu"))
  101. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  102. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  103.  
  104. ; percentage of the size of included ClassAct classes versus the whole
  105. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  106. (set classact-complete 50)
  107.  
  108. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  109. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nSome programs require some or all of the ClassAct classes installed on your system. "
  110.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  111.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. On OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  112.         )
  113.     )
  114. )
  115. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  116. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is such equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  117. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  118. (set #creating-dir "Creating directory ")
  119. (set #usbackup-prompt "User-Startup will now be backed up.")
  120. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  121. (set #adding-1 "Adding ")
  122. (set #adding-2 " to LIBS: assign\n")
  123. (set #adding-help "This is necessary so that the custom classes can be found.")
  124. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  125. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  126. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features will be likely to work wrong.")
  127. (set #caprefs-message "ClassAct has several user-configurable aspects that affect the look of ClassAct interfaces.\n\nThese settings can be changed using the ClassAct preferences tool that will be installed in yout Prefs drawer.\n\nA small tool, CAPrefs, will be added to your user-startup to load the settings on reboot.")
  128. (set #caprefs-startup-1 "Adding the command\n\n")
  129. (set #caprefs-startup-2 "\n\nTo your s:User-Startup.")
  130. (set #decompressing-classact "Compressed ClassAct distribution detected\n\nDecompressing to RAM:")
  131. (set #deleting-cltmp "Deleting temporary files")
  132.  
  133. (procedure install-classact
  134. ; call this procedure to copy the classes included in the Classes directory
  135. ; in your distribution dir.
  136.     (if (exists "ClassAct.lha")    ; ClassAct is compressed - need to decompress first
  137.         (                        ; Distribution includes LHEX
  138.             (working (cat #decompressing-classact))
  139. ; ClassAct.lha contains paths/files "Classes/*", "C/CheckAssign", "Prefs/CAPrefs" and "Prefs/ClassAct"
  140.             (run "lhex -aqfw=ram:ClassAct/ x ClassAct.lha")
  141.             (set @classact-source "RAM:ClassAct")
  142.         )
  143.         (set @classact-source (pathonly @icon))
  144.     )
  145.     (if (exists "ClassAct.lzx")    ; ClassAct is compressed - need to decompress first
  146.         (                        ; Distribution includes UNLZX
  147.             (working (cat #decompressing-classact))
  148. ; ClassAct.lzx contains paths/files "Classes/*", "C/CheckAssign",  "Prefs/CAPrefs" and "Prefs/ClassAct"
  149.             (run "unlzx -amq x ClassAct.lzx ram:ClassAct/")
  150.             (set @classact-source "RAM:ClassAct")
  151.         )
  152.         (set @classact-source (pathonly @icon))
  153.     )
  154.  
  155.     (if (exists (tackon @classact-source "Classes")) ; The archive contains a ClassAct library update.
  156.     (
  157.         (set comp-dest  (/ (* classact-complete 2) 10))
  158.         (set comp-libs  (/ (* classact-complete 3) 10))
  159.         (set comp-dirs  (/ (* classact-complete 4) 10))
  160.         (set comp-junod (/ (* classact-complete 5) 10))
  161.         (set comp-020   (/ (* classact-complete 6) 10))
  162.         (set comp-gad   (/ (* classact-complete 7) 10))
  163.         (set comp-im    (/ (* classact-complete 8) 10))
  164.         (set comp-prefs (/ (* classact-complete 9) 10))
  165.     
  166.         ; has the user installed ClassAct in CLASSACT: ?
  167.         (set @classact-dest (getassign "CLASSACT" "A"))
  168.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  169.         
  170.         ; is ClassAct already in SYS:Classes ?
  171.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  172.                 (= @user-level 2))
  173.             ; no, ask where it should be placed
  174.             (set @classact-dest
  175.                 (askdir
  176.                     (prompt #classdest-prompt)
  177.                     (help #classdest-help)
  178.                     (default @classact-dest)
  179.                     (newpath)
  180.                 )
  181.             )
  182.         )
  183.         
  184.         (complete comp-dest)
  185.         
  186.         (if (<> (run (cat (tackon @classact-source "C/CheckAssign") " LIBS: " @classact-dest)) 0)
  187.             (
  188.                 (message #noclasses-message)
  189.                 (if (not (exists @classact-dest))
  190.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  191.                 )
  192.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  193.                 (startup "CLASSACT"
  194.                     (command @addassign)
  195.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  196.                     (help #adding-help)
  197.                 )
  198.                 (run (@addassign))
  199.             )
  200.         )
  201.         
  202.         (complete comp-libs)
  203.         
  204.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  205.         (set @classact-images (tackon @classact-dest "Images"))
  206.         
  207.         (if (not (exists @classact-gadgets (noreq)))
  208.             (makedir @classact-images
  209.                 (prompt (cat #creating-dir @classact-gadgets))
  210.             )
  211.         )
  212.         
  213.         (if (not (exists @classact-images (noreq)))
  214.             (makedir @classact-images
  215.                 (prompt (cat #creating-dir @classact-images))
  216.             )
  217.         )
  218.         
  219.         (complete comp-dirs)
  220.         
  221.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  222.             (if (and (= 2752514 (getversion "SYS:Classes/Gadgets/button.gadget"))
  223.                     (= 4868 (getsize "SYS:Classes/Gadgets/button.gadget")))
  224.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  225.                     (
  226.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  227.                         (message #junod-backed)
  228.                     )
  229.                     (message #junod-kept)
  230.                 )
  231.             )
  232.         )
  233.         
  234.         (complete comp-junod)
  235.         
  236.         (if (and (and cpu020 v39) (exists (tackon @classact-source "Classes/Gadgets/layout.gadget.020")))
  237.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default 1)))
  238.             (set classes-020 0)
  239.         )
  240.  
  241.         (complete comp-020)
  242.         
  243.         (set @source-path (tackon @classact-source "Classes/Gadgets"))
  244.         (foreach @source-path "#?.gadget"
  245.             (
  246.                 (set thislib (tackon @source-path @each-name))
  247.                 (if (and classes-020 (exists (cat thislib ".020")))
  248.                     (set thislib (cat thislib ".020"))
  249.                 )
  250.                 (copylib (source thislib)
  251.                     (dest @classact-gadgets)
  252.                     (newname @each-name)
  253.                     (prompt (cat #installing @each-name))
  254.                     (help #classdest-help)
  255.                     (optional "force" "askuser")
  256.                 )
  257.             )
  258.         )
  259.         
  260.         (complete comp-gad)
  261.         
  262.         (set @source-path (tackon @classact-source "Classes/Images"))
  263.         (foreach @source-path "#?.image"
  264.             (
  265.                 (set thislib (tackon @source-path @each-name))
  266.                 (if (and classes-020 (exists (cat thislib ".020")))
  267.                     (set thislib (cat thislib ".020"))
  268.                 )
  269.                 (copylib (source thislib)
  270.                     (dest @classact-images)
  271.                     (newname @each-name)
  272.                     (prompt (cat #installing @each-name))
  273.                     (help #classdest-help)
  274.                     (optional "force" "askuser")
  275.                 )
  276.             )
  277.         )
  278.         
  279.         (complete comp-im)
  280.  
  281.         (set @source-path (tackon @classact-source "Classes"))
  282.         (foreach @source-path "#?.class"
  283.             (
  284.                 (set thislib (tackon @source-path @each-name))
  285.                 (if (and classes-020 (exists (cat thislib ".020")))
  286.                     (set thislib (cat thislib ".020"))
  287.                 )
  288.                 (copylib (source thislib)
  289.                     (dest @classact-dest)
  290.                     (newname @each-name)
  291.                     (prompt (cat #installing @each-name))
  292.                     (help #classdest-help)
  293.                     (optional "force" "askuser")
  294.                 )
  295.             )
  296.         )
  297.     )
  298.     )
  299.     (if (exists (tackon @classact-source "Prefs/ClassAct")) ; The archive contains ClassAct prefs tools
  300.     (
  301.         (message #caprefs-message)
  302.         
  303.         (copylib (source (tackon @classact-source "Prefs/CAPrefs")) 
  304.             (dest "C:") 
  305.             (prompt (cat #installing "CAPrefs"))
  306.         )
  307.         (copylib (source (tackon @classact-source "Prefs/ClassAct"))
  308.             (dest "SYS:Prefs")
  309.             (prompt (cat #installing "ClassAct Prefs"))
  310.             (infos)
  311.         )
  312.         
  313.         (complete comp-prefs)
  314.         
  315.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  316.             (
  317.                 (makedir "ENVARC:ClassAct"
  318.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  319.                 )
  320.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  321.                     (append "")
  322.                 )
  323.             )
  324.         )
  325.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  326.  
  327.         (startup "CAPREFS"
  328.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  329.             (help #caprefs-message)
  330.             (command caprefs-cmd)
  331.         )
  332.     )
  333.     )
  334.     
  335.     (if (exists "ClassAct.lha")
  336.         (delete "RAM:ClassAct" (all)
  337.             (prompt #deleting-cltmp)
  338.         )
  339.     )
  340.  
  341.     (complete classact-complete)
  342. )
  343.  
  344. ; ************** END OF CLASSACT INSTALL PROCEDURE. COPY THE BLOCK ABOVE
  345. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  346.  
  347. ; ---------------------------------------------------------------------------
  348.  
  349. (procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )
  350.  
  351. (working "\n\n\n\n\n\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  352. (working "\n\n\n\n\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  353. (working "\n\n\n\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  354. (working "\n\n\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  355. (working "\n\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  356. (working "\n\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  357. (working "\n\n\n\n\n\n\nTHOR 2.4") (WAITX)
  358. (working "\n\n\n\n\n\nTHOR 2.4") (WAITX)
  359. (working "\n\n\n\n\nTHOR 2.4") (WAITX)
  360. (working "\n\n\n\nTHOR 2.4") (WAITX)
  361. (working "\n\n\nTHOR 2.4") (WAITX)
  362. (working "\n\nTHOR 2.4") (WAITX)
  363. (working "\n\nTHOR 2.4") (WAITX)
  364. (working "\nTHOR 2.4") (WAITX)
  365. (working "\nTHOR 2.4") (WAITX)
  366.  
  367. (working "\nTHOR 2.4\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  368. (working "\nTHOR 2.4\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  369. (working "\nTHOR 2.4\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  370. (working "\nTHOR 2.4\n\n\n\n\n\n\n\n\nby") (WAITX)
  371. (working "\nTHOR 2.4\n\n\n\n\n\n\n\nby") (WAITX)
  372. (working "\nTHOR 2.4\n\n\n\n\n\n\nby") (WAITX)
  373. (working "\nTHOR 2.4\n\n\n\n\n\nby") (WAITX)
  374. (working "\nTHOR 2.4\n\n\n\n\nby") (WAITX)
  375. (working "\nTHOR 2.4\n\n\n\nby") (WAITX)
  376. (working "\nTHOR 2.4\n\n\nby") (WAITX)
  377. (working "\nTHOR 2.4\n\n\nby") (WAITX)
  378.  
  379. (working "\nTHOR 2.4\n\n\nby\n\n\n\n\n\n\n\n\nUltima Thule Software") (WAITX) 
  380. (working "\nTHOR 2.4\n\n\nby\n\n\n\n\n\n\n\nUltima Thule Software") (WAITX) 
  381. (working "\nTHOR 2.4\n\n\nby\n\n\n\n\n\n\nUltima Thule Software") (WAITX) 
  382. (working "\nTHOR 2.4\n\n\nby\n\n\n\n\n\nUltima Thule Software") (WAITX) 
  383. (working "\nTHOR 2.4\n\n\nby\n\n\n\n\nUltima Thule Software") (WAITX) 
  384. (working "\nTHOR 2.4\n\n\nby\n\n\n\nUltima Thule Software") (WAITX) 
  385. (working "\nTHOR 2.4\n\n\nby\n\n\nUltima Thule Software") (WAITX) 
  386.  
  387. (message "\n\n\nTHOR 2.4\n\n\nby\n\n\nUltima Thule Software") (WAITX) 
  388.  
  389. (welcome)
  390.  
  391. ; first reset the user level so that the novice can see whats going on
  392.     (save_default_level)
  393.     (expert_level)
  394.  
  395. ;Make assign to install from
  396.     (makeassign "Thor_Install" "" (safe))
  397.  
  398.  
  399. ;******************
  400. ;** Check Memory **
  401. ;******************
  402.  
  403. (run "Avail flush")
  404.  
  405. (set Running (run "Thor_Install:CheckForLib"))
  406.  
  407. (while (= Running 20)
  408.       ((Message newline "Thor (or a related program) seems to be running, you MUST close it NOW."    
  409.         newline "If you don't, the installation will fail!")
  410.     (run "Avail flush")
  411.     (set Running (run "Thor_Install:CheckForLib")))
  412. )
  413.  
  414. ;************************
  415. ;** Start Installation **
  416. ;************************
  417.  
  418. (if (exists "ENV:THOR/THORPath" (noreq))
  419.     ; Then
  420.     (
  421.         (if (set Thor_Dir (getenv "THOR/THORPath"))
  422.             (
  423.                 (set Test_lf (substr Thor_Dir (- (strlen Thor_Dir) 1) ) )
  424.                 (if (= Test_lf "\n")
  425.                     (set Thor_Dir (substr Thor_Dir 0 (- (strlen Thor_Dir) 1) ) )
  426.                 )
  427.                 (set Thor_Dir (expandpath Thor_Dir))
  428.                 (makeassign "Thor" Thor_Dir (safe))
  429.             )
  430.             ; Else
  431.             (
  432.                 (if (exists "Thor:libs/bbsread.library" (noreq))
  433.                     (
  434.                         ; Then
  435.                         (    
  436.                             (set Thor_Dir (expandpath "Thor:"))
  437.                         )
  438.                         ; Else
  439.                         (
  440.                             (set end_text "Please use the InstallThor script for a first-time installation.")
  441.                             (abort end_text)
  442.                         )
  443.                     )
  444.                 )
  445.             )
  446.         )
  447.     )
  448.     ; Else
  449.     (
  450.         (if (exists "Thor:libs/bbsread.library" (noreq))
  451.             ; Then
  452.             (    
  453.                 (set Thor_Dir (expandpath "Thor:"))
  454.             )
  455.             ; Else
  456.             (
  457.                 (set end_text "Please use the InstallThor script for a first-time installation.")
  458.                 (abort end_text)
  459.             )
  460.         )
  461.     )
  462. )
  463.  
  464. (if (exists "ENV:THOR/THORPath" (noreq))
  465.     ; Then
  466.     (
  467.         (if (set BBSData_Dir (getenv "THOR/BBSDataPath"))
  468.             (
  469.                 (set BBSData_Dir (substr BBSData_Dir 0 (- (strlen BBSData_Dir) 1)))
  470.                 (set BBSData_Dir (expandpath BBSData_Dir))
  471.                 (makeassign "BBSData" BBSData_Dir (safe))
  472.             )
  473.             ; Else
  474.             (
  475.                 (if (exists "BBSData:global.config" (noreq))
  476.                     ; Then
  477.                     (
  478.                         (set BBSData_Dir (expandpath "BBSData:"))
  479.                     )
  480.                     ; Else
  481.                     (
  482.                         (set end_text "Please use the InstallThor script for a first-time installation.")
  483.                         (abort end_text)
  484.                     )
  485.                 )
  486.             )
  487.         )
  488.     )
  489.     ; Else
  490.     (
  491.         (if (exists "BBSData:global.config" (noreq))
  492.             ; Then
  493.             (
  494.                 (set BBSData_Dir (expandpath "BBSData:"))
  495.             )
  496.             ; Else
  497.             (
  498.                 (set end_text "Please use the InstallThor script for a first-time installation.")
  499.                 (abort end_text)
  500.             )
  501.         )
  502.     )
  503. )
  504.  
  505. ;**********************************************
  506. ;** Move ARexx scripts to another directory..**
  507. ;**********************************************
  508.  
  509. (if (askbool
  510.         (prompt
  511.             "The THOR ARexx script distribution has changed. "
  512.             "The old directory with ARexx scripts can be moved "
  513.             "to a Rexx_Old directory. \n\n"
  514.             "Press 'Yes' to continue with backup of old ARexx scripts.")
  515.         (help
  516.             "The installer has determined that you may already have a " 
  517.             "copy of Thor installed on your system. "
  518.             "ARexx files from a previous installation can be moved to "
  519.             "a safe directory."
  520.         )
  521.         (default 1)
  522.     )
  523.     ; Then
  524.     ( 
  525.         (makedir "THOR:Rexx_Old")
  526.         (copyfiles
  527.             (source "Thor:rexx")
  528.             (dest "THOR:rexx_old")
  529.             (all)
  530.         )
  531.         (working omp "Deleting old ARexx files...")
  532.         (run "Delete THOR:rexx/~(postinglists|#?.cfg|#?.adr) all")
  533.     )
  534. )
  535.  
  536.  
  537. ;**********************************************
  538. ;** See if SortMail.cfg needs to be moved. ****
  539. ;**********************************************
  540.  
  541. (set #move-cfg "\nThe SortMail configuration was found in ENV(ARC):Thor/SortMail.cfg.\n\nAs SortMail 3.3 requires the configuration to be in the system's directory it has now been moved to:\n\n")
  542. (set #old-cfg "\nAn old SortMail configuration was found in ENV(ARC):Thor/SortMail.cfg.\n\nThe format of the configuration files have changed in SortMail 3.0 and higher, so a new configuration will have to be created from scratch using the new CfgSortMail.thor.\n\nWhen you have reconfigured SortMail, please delete ENVARC:Thor/SortMail.cfg.")
  543. (set #chk-fail "\nFailed to run checkver.rexx!\n\nPlease check that SYS:RexxC/rx and SYS:RexxC/WaitForPort exist and make sure you have started SYS:System/RexxMast.")
  544.  
  545. (if (exists "ENV:Thor/SortMail.cfg" (noreq) )
  546.     (
  547.         (set #version (run "SYS:RexxC/rx Thor_Install:checkver.rexx") )
  548.  
  549.         (if (= #version 1)
  550.             (message #old-cfg)
  551.         )
  552.  
  553.         (if (= #version 2)
  554.             (
  555.                 (set #sys-dir (getenv "SM_System") )
  556.                 (set #move-cfg (cat #move-cfg #sys-dir) )
  557.                 (message #move-cfg)
  558.                 (run "Delete ENV:SM_System QUIET")
  559.             )
  560.         )
  561.  
  562.         (if (> #version 2)
  563.             (message #chk-fail)
  564.         )
  565.     )
  566. )
  567.  
  568. ;**********************************************
  569. ;** Hostile deletion of old files here.. ******
  570. ;**********************************************
  571.  
  572. (expert_level)
  573.  
  574. (run "Rename THOR:THOR.info THOR:THOR.old.info")
  575. (run "Rename THOR:ConfigTHOR.info THOR:ConfigTHOR.old.info")
  576. (run "Rename THOR:ConnectTHOR.info THOR:ConnectTHOR.old.info")
  577. (run "Delete libs:bbsread.library")
  578. (run "Delete libs:bbsreadcnv2.library")
  579. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(run "Delete libs:utgui.library")
  580. (run "Delete l:bbsread-handler")
  581. (run "Delete l:bbsreadrexx-handler")
  582. (run "Delete THOR:bin/initsoup")
  583. (run "Delete THOR:bin/configuucp")
  584.  
  585. ;******************
  586. ;** Locale stuff **
  587. ;******************
  588.  
  589. (default_level)
  590.  
  591. (set catalog
  592.    (askoptions
  593.       (prompt "What languages would you like to install ?\n"
  594.             "English is the built-in language.")
  595.       (help
  596.             "This will install locale files for other languages than English. "
  597.             "You can set the prefered language on Workbench and in Thor by"
  598.             "using the prefs:locale tool." newline @askchoice-help
  599.       )
  600.       (choices "Norsk" "Dansk" "Svenska" "Deutsch" "Français" "Italiano" "Nederlands")
  601.       (default 0)
  602.    )
  603. )
  604.  
  605. ; Delete previous installed catalog files.
  606.  
  607. (run "delete thor:catalogs all")
  608.  
  609. (makedir "thor:catalogs")
  610.  
  611. (if (bitand 1 catalog)
  612.     (copyfiles
  613.         (source "Thor_Install:catalogs/norsk")
  614.         (dest "thor:catalogs/norsk")
  615.         (all)
  616.     )
  617. )
  618.  
  619. (if (bitand 2 catalog)
  620.     (copyfiles
  621.         (source "Thor_Install:catalogs/dansk")
  622.         (dest "thor:catalogs/dansk")
  623.         (all)
  624.     )
  625. )
  626.  
  627. (if (bitand 4 catalog)
  628.     (copyfiles
  629.         (source "Thor_Install:catalogs/svenska")
  630.         (dest "thor:catalogs/svenska")
  631.         (all)
  632.     )
  633. )
  634.  
  635. (if (bitand 8 catalog)
  636.     (copyfiles
  637.         (source "Thor_Install:catalogs/deutsch")
  638.         (dest "thor:catalogs/deutsch")
  639.         (all)
  640.     )
  641. )
  642.  
  643. (if (bitand 16 catalog)
  644.     (copyfiles
  645.         (source "Thor_Install:catalogs/français")
  646.         (dest "thor:catalogs/français")
  647.         (all)
  648.     )
  649. )
  650.  
  651. (if (bitand 32 catalog)
  652.     (copyfiles
  653.         (source "Thor_Install:catalogs/italiano")
  654.         (dest "thor:catalogs/italiano")
  655.         (all)
  656.     )
  657. )
  658.  
  659. (if (bitand 64 catalog)
  660.     (copyfiles
  661.         (source "Thor_Install:catalogs/nederlands")
  662.         (dest "thor:catalogs/nederlands")
  663.         (all)
  664.     )
  665. )
  666.  
  667. ;***********************************
  668. ;***** GET FIRST DISK IN HERE ******
  669. ;***********************************
  670.  
  671. ; first copy over the stuff
  672. (working omp "Decompressing and copying Thor files.")
  673.  
  674. (run "Thor_Install:lha -a x Thor_Install:thor.lha THOR:" )
  675.  
  676. ;*********************
  677. ;** reqtools.libary **
  678. ;*********************
  679.  
  680. (copylib
  681.     (prompt "Copying ReqTools library")
  682.     (help "This will copy the ReqTools library." newline @copylib-help)
  683.     (source "Thor_Install:reqtools.library")
  684.     (dest "libs:")
  685. )
  686.  
  687. ;************************
  688. ;**  Copy the keyfile  **
  689. ;************************
  690. (if (exists "Thor_Install:THOR.key" (noreq))
  691. ; Then
  692.     (copyfiles
  693.         (source "Thor_Install:THOR.key")
  694.         (dest "THOR:")
  695.     )
  696. )
  697.         
  698. (run "thor:bin/InitCharsets")
  699.  
  700. (expert_level)
  701.  
  702. (set defpath (pathonly @icon))
  703.  
  704. (if    (askbool
  705.         (prompt newline 
  706.                         "Would you like to install the optional ARexx "
  707.                         "scripts for THOR? "
  708.         (help newline
  709.                         "This section of the installation is dedicated "
  710.                         "to installation of some optional ARexx scripts.\n\n "
  711.                         "Select YES if you want to continue with this "
  712.                         "installation, otherwise NO"))
  713.         (default 1)
  714.     )
  715.     ; Then 
  716.     (
  717.         (set isthere 20)
  718.         (while (= 20 isthere)
  719.             (set arexxfile 
  720.                 (askfile
  721.                     (prompt (cat  
  722.                             "Please select the ARexx archive for THOR 2.4\n"
  723.                             "(Usually named '"#arexxpackname"').\n\n"
  724.                             "It will be unarchived automatically."))
  725.                     (help @askfile-help)
  726.                     (default (tackon defpath #arexxpackname))
  727.                 )
  728.             )
  729.             ; verify that the file exists
  730.             (if (exists arexxfile)
  731.                 (
  732.                     (set isthere 0)
  733.                     (set defpath (pathonly arexxfile))
  734.                     (set runfile3 (cat runfile3 "Thor_Install:lha -a x " quote arexxfile quote " Thor:rexx/"))
  735.                     (set failed (run runfile3))
  736.                     (if (<> 0 failed)
  737.                         (
  738.                             ((set failed_text "Unarchiving of the ARexx archive failed.")
  739.                                 (message end_text))
  740.                         )
  741.                     )
  742.                 )
  743.                 ; else
  744.                 (
  745.                     (if    (askbool
  746.                                (prompt 
  747.                                 "File doesn't exist.\n\nDo you want to try again?"
  748.                                 (default 1)
  749.                                 (help "YES to select the correct file, or NO to continue without installing this archive.")
  750.                             )
  751.                         )
  752.                         ; Then
  753.                         (
  754.                             (set isthere 20)
  755.                         )
  756.                         ; Else
  757.                         (
  758.                             (set isthere 0)
  759.                         )
  760.                     )
  761.                 )
  762.             )
  763.         )
  764.     )
  765. )
  766.  
  767. (if (exists "Thor_Install:bin/parseqwk" (noreq))
  768.     ; Then
  769.     (
  770.         (set bbspack 1)
  771.     )
  772.     ; Else
  773.     (
  774.         (if    (askbool
  775.                 (prompt newline 
  776.                                 "Would you like to install the modules for "
  777.                                 "QWK, Fido, Hippo, Bluewave, ABBS/MBBS and Omen "
  778.                                 "to be used with Bulletin Board Systems?\n\n "
  779.                                 "(you will be able to select which modules to "
  780.                                 "install later in this installation procedure).")
  781.                 (help newline
  782.                                 "This section of the installation is dedicated "
  783.                                 "to installation of some common formats "
  784.                                 "required if you want to use THOR with BBSes.\n\n"
  785.                                 "Select YES if you want to continue with this "
  786.                                 "installation, otherwise NO")
  787.                 (default 1)
  788.             )
  789.             ; Then 
  790.             (
  791.                 (set isthere 20)
  792.                 (while (= 20 isthere)
  793.                     (set bbsfile 
  794.                         (askfile
  795.                             (prompt (cat "Please select the BBS archive for THOR 2.4. "
  796.                                     "(Usually named '"#bbspackname"').\n\n"
  797.                                     "It will be unarchived automatically."))
  798.                             (help @askfile-help)
  799.                             (default (tackon defpath #bbspackname))
  800.                         )
  801.                     )
  802.                     ; verify that the file exists
  803.                     (if (exists bbsfile)
  804.                         (
  805.                             (set isthere 0)
  806.                             (set runfile (cat runfile "Thor_Install:lha -a x " quote bbsfile quote " Thor_Install:"))
  807.                             (set failed (run runfile))
  808.                             (if (<> 0 failed)
  809.                                 (
  810.                                     ((set failed_text "Unarchiving of the BBS archive failed.")
  811.                                         (message end_text))
  812.                                 )
  813.                                 ; Else
  814.                                 (
  815.                                     (set bbspack 1)
  816.                                 )
  817.                             )
  818.                         )
  819.                         ; else
  820.                         (
  821.                             (if    (askbool
  822.                                           (prompt 
  823.                                         "File doesn't exist.\n\nDo you want to try again?"
  824.                                         (default 1)
  825.                                         (help "YES to select the correct file, or NO to continue without installing this archive.")
  826.                                     )
  827.                                 )
  828.                                 ; Then
  829.                                 (
  830.                                     (set isthere 20)
  831.                                 )
  832.                                 ; Else
  833.                                 (
  834.                                     (set isthere 0)
  835.                                 )
  836.                             )
  837.                         )
  838.                     )
  839.                 )
  840.             )
  841.         )
  842.     )
  843. )
  844.  
  845. (if (exists "Thor_Install:bin/gettcp" (noreq))
  846.     ; Then
  847.     (
  848.         (set inetpack 1)
  849.     )
  850.     ; Else
  851.     (
  852.         (if    (askbool
  853.                 (prompt newline 
  854.                                 "Would you like to install the modules for "
  855.                                 "UUCP, SOUP, NNTP, SMTP and POP3 "
  856.                                 "to be used with Internet?\n\n"
  857.                                 "(you will be able to select which modules to "
  858.                                 "install later in this installation procedure).")
  859.                 (help newline
  860.                                 "This section of the installation is dedicated "
  861.                                 "to installation of some common formats "
  862.                                 "required if you want to use THOR with Internet.\n\n"
  863.                                 "Select YES if you want to continue with this "
  864.                                 "installation, otherwise NO")
  865.                 (default 1)
  866.             )
  867.             ; Then 
  868.             (
  869.                 (set isthere 20)
  870.                 (while (= 20 isthere)
  871.                     (set inetfile 
  872.                         (askfile
  873.                             (prompt (cat  
  874.                                     "Please select the Internet archive for THOR 2.4\n"
  875.                                     "(Usually named '"#inetpackname"').\n\n"
  876.                                     "It will be unarchived automatically."))
  877.                             (help @askfile-help)
  878.                             (default (tackon defpath #inetpackname))
  879.                         )
  880.                     )
  881.                     ; verify that the file exists
  882.                     (if (exists inetfile)
  883.                         (
  884.                             (set isthere 0)
  885.                             (set runfile2 (cat runfile2 "Thor_Install:lha -a x " quote inetfile quote " Thor_Install:"))
  886.                             (set failed (run runfile2))
  887.                             (if (<> 0 failed)
  888.                                 (
  889.                                     ((set failed_text "Unarchiving of the Internet archive failed.")
  890.                                         (message end_text))
  891.                                 )
  892.                                 ; Else
  893.                                 (
  894.                                     (set inetpack 1)
  895.                                 )
  896.                             )
  897.                         )
  898.                         ; else
  899.                         (
  900.                             (if    (askbool
  901.                                           (prompt 
  902.                                         "File doesn't exist.\n\nDo you want to try again?"
  903.                                         (default 1)
  904.                                         (help "YES to select the correct file, or NO to continue without installing this archive.")
  905.                                     )
  906.                                 )
  907.                                 ; Then
  908.                                 (
  909.                                     (set isthere 20)
  910.                                 )
  911.                                 ; Else
  912.                                 (
  913.                                     (set isthere 0)
  914.                                 )
  915.                             )
  916.                         )
  917.                     )
  918.                 )
  919.             )
  920.         )
  921.     )
  922. )
  923.  
  924. (if (= bbspack 1)
  925.     (
  926.         (set bbs_type
  927.            (askoptions
  928.               (prompt
  929.                         "Please select which BBS modules "
  930.                         "you want to install.")
  931.               (help
  932.                     "What system type for BBS usage that should be "
  933.                     "installed can be selected here."
  934.               )
  935.  
  936.               (choices
  937.                     "QWK        - Normal QWK"
  938.                     "Fido       - Normal Fidonet"
  939.                     "BlueWave   - Normal BlueWave"
  940.                     "ABBS       - Normal ABBS"
  941.                     "ABBS_QWK   - ABBS with QWK support"
  942.                     "MBBS       - Normal MBBS"
  943.                     "Hippo/BBBS - Normal Hippo V2 and Hippo on BBBS"
  944.                     "Omen       - Normal Omen"
  945.               )
  946.               (default -1)
  947.            )
  948.         )
  949.         (copyfiles
  950.             (source "Thor_Install:scripts")
  951.             (dest "THOR:scripts")
  952.             (pattern "#?BBS#?")
  953.         )
  954.         (if (bitand 1 bbs_type)
  955.             (
  956.                 (copyfiles
  957.                     (source "Thor_Install:bin")
  958.                     (dest "THOR:bin")
  959.                     (pattern "#?QWK")
  960.                 )
  961.                 (copyfiles
  962.                     (source "Thor_Install:s/cfgqwk")
  963.                     (dest "THOR:s")
  964.                 )
  965.                 (execute "thor:s/cfgqwk")
  966.             )
  967.         )
  968.         (if (bitand 2 bbs_type)
  969.             (
  970.                 (copyfiles
  971.                     (source "Thor_Install:bin")
  972.                     (dest "THOR:bin")
  973.                     (pattern "#?FIDO")
  974.                 )
  975.                 (copyfiles
  976.                     (source "Thor_Install:s")
  977.                     (dest "THOR:s")
  978.                     (pattern "cfgfido#?")
  979.                 )
  980.                 (execute "thor:s/cfgfido")
  981.                 (execute "thor:s/cfgfido_export")
  982.             )
  983.         )
  984.         (if (bitand 4 bbs_type)
  985.             (
  986.                 (copyfiles
  987.                     (source "Thor_Install:bin")
  988.                     (dest "THOR:bin")
  989.                     (pattern "#?BLUE")
  990.                 )
  991.                 (copyfiles
  992.                     (source "Thor_Install:s/cfgblue")
  993.                     (dest "THOR:s")
  994.                 )
  995.                 (execute "thor:s/cfgblue")
  996.             )
  997.         )
  998.         (if (bitand 8 bbs_type)
  999.             (
  1000.                 (copyfiles
  1001.                     (source "Thor_Install:bin/packambbs")
  1002.                     (dest "THOR:bin")
  1003.                 )
  1004.                 (copyfiles
  1005.                     (source "Thor_Install:bin/parsemsg")
  1006.                     (dest "THOR:bin")
  1007.                 )
  1008.                 (copyfiles
  1009.                     (source "Thor_Install:s/cfgabbs")
  1010.                     (dest "THOR:s")
  1011.                 )
  1012.                 (execute "thor:s/cfgabbs")
  1013.             )
  1014.         )
  1015.         (if (bitand 16 bbs_type)
  1016.             (
  1017.                 (copyfiles
  1018.                     (source "Thor_Install:bin")
  1019.                     (dest "THOR:bin")
  1020.                     (pattern "#?QWK")
  1021.                 )
  1022.                 (copyfiles
  1023.                     (source "Thor_Install:s/cfgabbs_qwk")
  1024.                     (dest "THOR:s")
  1025.                 )
  1026.                 (execute "thor:s/cfgabbs_qwk")
  1027.             )
  1028.         )
  1029.         (if (bitand 32 bbs_type)
  1030.             (
  1031.                 (copyfiles
  1032.                     (source "Thor_Install:bin/packambbs")
  1033.                     (dest "THOR:bin")
  1034.                 )
  1035.                 (copyfiles
  1036.                     (source "Thor_Install:bin/parsemsg")
  1037.                     (dest "THOR:bin")
  1038.                 )
  1039.                 (copyfiles
  1040.                     (source "Thor_Install:s/cfgmbbs")
  1041.                     (dest "THOR:s")
  1042.                 )
  1043.                 (execute "thor:s/cfgmbbs")
  1044.             )
  1045.         )
  1046.         (if (bitand 64 bbs_type)
  1047.             (
  1048.                 (copyfiles
  1049.                     (source "Thor_Install:bin")
  1050.                     (dest "THOR:bin")
  1051.                     (pattern "#?hippo")
  1052.                 )
  1053.                 (copyfiles
  1054.                     (source "Thor_Install:s/cfghippo")
  1055.                     (dest "THOR:s")
  1056.                 )
  1057.                 (copyfiles
  1058.                     (source "Thor_Install:s/cfgbbbs")
  1059.                     (dest "THOR:s")
  1060.                 )
  1061.                 (execute "thor:s/cfghippo")
  1062.                 (execute "thor:s/cfgbbbs")
  1063.             )
  1064.         )
  1065.         (if (bitand 128 bbs_type)
  1066.             (
  1067.                 (copyfiles
  1068.                     (source "Thor_Install:bin")
  1069.                     (dest "THOR:bin")
  1070.                     (pattern "#?omen")
  1071.                 )
  1072.                 (copyfiles
  1073.                     (source "Thor_Install:s/cfgomen")
  1074.                     (dest "THOR:s")
  1075.                 )
  1076.                 (execute "thor:s/cfgomen")
  1077.             )
  1078.         )
  1079.     )
  1080. )
  1081.  
  1082. (if (= inetpack 1)
  1083.     (
  1084.         (set bbs_type
  1085.            (askoptions
  1086.               (prompt
  1087.                         "Please select which Internet modules "
  1088.                         "you want to install.")
  1089.               (help
  1090.                     "What system type for Internet usage that should be "
  1091.                     "installed can be selected here."
  1092.               )
  1093.  
  1094.               (choices
  1095.                         "TCP/TCP_ONLINE - POP3, SMTP and NNTP"
  1096.                         "SOUP/UQWK_SOUP - Normal SOUP and SOUP w/uqwk"
  1097.                         "UUCP           - Normal UUCP"
  1098.               )
  1099.               (default -1)
  1100.            )
  1101.         )
  1102.  
  1103.         (copyfiles
  1104.             (source "Thor_Install:libs/utnet.library")
  1105.             (dest "THOR:libs")
  1106.         )
  1107.  
  1108.         (copyfiles
  1109.             (source "Thor_Install:bin/InitRFC")
  1110.             (dest "THOR:bin")
  1111.         )
  1112.  
  1113.         (copyfiles
  1114.             (source "Thor_Install:scripts")
  1115.             (dest "THOR:scripts")
  1116.             (pattern "#?UQWK#?")
  1117.         )
  1118.  
  1119.         (if (bitand 1 bbs_type)
  1120.             (
  1121.                 (copyfiles
  1122.                     (source "Thor_Install:bin")
  1123.                     (dest "THOR:bin")
  1124.                     (pattern "#?(UUCP|TCP)")
  1125.                 )
  1126.                 (copyfiles
  1127.                     (source "Thor_Install:")
  1128.                     (dest "THOR:")
  1129.                     (pattern "ConnectTHOR#?")
  1130.                 )
  1131.                 (copyfiles
  1132.                     (source "Thor_Install:s/cfgtcp")
  1133.                     (dest "THOR:s")
  1134.                 )
  1135.                 (copyfiles
  1136.                     (source "Thor_Install:s/cfgtcp_online")
  1137.                     (dest "THOR:s")
  1138.                 )
  1139.                 (execute "thor:s/cfgtcp")
  1140.                 (execute "thor:s/cfgtcp_online")
  1141.                 (set classact 1)
  1142.                 (set tcptype 1)
  1143.             )
  1144.         )
  1145.         (if (bitand 2 bbs_type)
  1146.             (
  1147.                 (copyfiles
  1148.                     (source "Thor_Install:bin")
  1149.                     (dest "THOR:bin")
  1150.                     (pattern "#?SOUP")
  1151.                 )
  1152.                 (copyfiles
  1153.                     (source "Thor_Install:s")
  1154.                     (dest "THOR:s")
  1155.                     (pattern "#?soup")
  1156.                 )
  1157.                 (makedir "THOR:unix")
  1158.                 (copyfiles
  1159.                     (source "Thor_Install:unix")
  1160.                     (dest "THOR:unix")
  1161.                     (all)
  1162.                 )
  1163.                 (execute "thor:s/cfguqwk_soup")
  1164.                 (execute "thor:s/cfgsoup")
  1165.             )
  1166.         )
  1167.         (if (bitand 4 bbs_type)
  1168.             (
  1169.                 (copyfiles
  1170.                     (source "Thor_Install:bin")
  1171.                     (dest "THOR:bin")
  1172.                     (pattern "#?UUCP")
  1173.                 )
  1174.                 (copyfiles
  1175.                     (source "Thor_Install:s/cfguucp")
  1176.                     (dest "THOR:s")
  1177.                 )
  1178.                 (execute "thor:s/cfguucp")
  1179.                 (set uucptype 1)
  1180.             )
  1181.         )
  1182.     )
  1183. )
  1184.  
  1185. (if (= classact 1)
  1186.     (
  1187.         (install-classact)
  1188.     )
  1189. )
  1190.  
  1191. (if (exists "sys:classes/datatypes/exe.datatype" (noreq))
  1192.     (if (delete "sys:classes/datatypes/exe.datatype"
  1193.             (prompt #exedtbug)
  1194.             (help "The installer has found exe.datatype installed."
  1195.                     "Select YES if you want it delete it, otherwise NO")
  1196.             (optional "force" "askuser" "infos")
  1197.         )    
  1198.     )
  1199.     ; Then
  1200.     (
  1201.         (delete "devs:datatypes/exe" (optional "force" "infos"))
  1202.     )
  1203. )
  1204.  
  1205. ;*****************************
  1206. ;****** Install icons ********
  1207. ;*****************************
  1208.  
  1209. (set icon
  1210.     (askchoice
  1211.         (prompt
  1212.             "Please select what icon-set to install with THOR.\n")
  1213.         (help
  1214.             "If you use MagicWB on your Workbench, "
  1215.             "you might want to install the special MagicWB icons.\n\n"
  1216.             "Likewise, if you use NewIcons on your Workbench, "
  1217.             "you might want to install the special NewIcons icons.")
  1218.         (choices "Normal icons" "MagicWB icons" "NewIcons icons")
  1219.         (default 0)
  1220.     )
  1221. )
  1222.  
  1223. (if (= icon 1)
  1224.     (
  1225.         (copyfiles
  1226.             (prompt "Copying MagicWB icon files")
  1227.             (source "Thor_Install:MWBIcons")
  1228.             (dest "Thor:")
  1229.             (pattern "~(THOR.guide.info)")
  1230.             (noposition)
  1231.             (nogauge)
  1232.         )
  1233.         (copyfiles
  1234.             (prompt "Copying MagicWB icon files")
  1235.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1236.             (dest "Thor:Docs")
  1237.             (newname "THOR.guide.info")
  1238.             (noposition)
  1239.             (nogauge)
  1240.         )
  1241.         (copyfiles
  1242.             (prompt "Copying MagicWB icon files")
  1243.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1244.             (dest "Thor:Docs")
  1245.             (newname "ConfigTHOR.guide.info")
  1246.             (noposition)
  1247.             (nogauge)
  1248.         )
  1249.         (copyfiles
  1250.             (prompt "Copying MagicWB icon files")
  1251.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1252.             (dest "Thor:Docs")
  1253.             (newname "ARexx.guide.info")
  1254.             (noposition)
  1255.             (nogauge)
  1256.         )
  1257.         (copyfiles
  1258.             (prompt "Copying MagicWB icon files")
  1259.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1260.             (dest "Thor:Docs")
  1261.             (newname "BBSReadRexx.guide.info")
  1262.             (noposition)
  1263.             (nogauge)
  1264.         )
  1265.         (copyfiles
  1266.             (prompt "Copying MagicWB icon files")
  1267.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1268.             (dest "Thor:Docs")
  1269.             (newname "THOR_Rexx.guide.info")
  1270.             (noposition)
  1271.             (nogauge)
  1272.         )
  1273.         (copyfiles
  1274.             (prompt "Copying MagicWB icon files")
  1275.             (source "Thor_Install:MWBIcons/THOR.guide.info")
  1276.             (dest "Thor:Docs")
  1277.             (newname "Installation.guide.info")
  1278.             (noposition)
  1279.             (nogauge)
  1280.         )
  1281.     )
  1282. )
  1283. (if (= icon 2)
  1284.     (
  1285.         (copyfiles
  1286.             (prompt "Copying NewIcons icon files")
  1287.             (source "Thor_Install:NewIcons")
  1288.             (dest "Thor:")
  1289.             (pattern "~(THOR.guide.info)")
  1290.             (noposition)
  1291.             (nogauge)
  1292.         )
  1293.         (copyfiles
  1294.             (prompt "Copying NewIcons icon files")
  1295.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1296.             (dest "Thor:Docs")
  1297.             (newname "THOR.guide.info")
  1298.             (noposition)
  1299.             (nogauge)
  1300.         )
  1301.         (copyfiles
  1302.             (prompt "Copying NewIcons icon files")
  1303.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1304.             (dest "Thor:Docs")
  1305.             (newname "ConfigTHOR.guide.info")
  1306.             (noposition)
  1307.             (nogauge)
  1308.         )
  1309.         (copyfiles
  1310.             (prompt "Copying NewIcons icon files")
  1311.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1312.             (dest "Thor:Docs")
  1313.             (newname "ARexx.guide.info")
  1314.             (noposition)
  1315.             (nogauge)
  1316.         )
  1317.         (copyfiles
  1318.             (prompt "Copying NewIcons icon files")
  1319.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1320.             (dest "Thor:Docs")
  1321.             (newname "BBSReadRexx.guide.info")
  1322.             (noposition)
  1323.             (nogauge)
  1324.         )
  1325.         (copyfiles
  1326.             (prompt "Copying NewIcons icon files")
  1327.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1328.             (dest "Thor:Docs")
  1329.             (newname "THOR_Rexx.guide.info")
  1330.             (noposition)
  1331.             (nogauge)
  1332.         )
  1333.         (copyfiles
  1334.             (prompt "Copying NewIcons icon files")
  1335.             (source "Thor_Install:NewIcons/THOR.guide.info")
  1336.             (dest "Thor:Docs")
  1337.             (newname "Installation.guide.info")
  1338.             (noposition)
  1339.             (nogauge)
  1340.         )
  1341.     )
  1342. )
  1343.  
  1344. (if (exists "env:sys/def_drawer.info" (noreq))
  1345.     (copyfiles
  1346.         (prompt "Copying default drawer icon")
  1347.         (help "This will copy the default drawer icon." newline @copyfiles-help)
  1348.         (source "env:sys/def_drawer.info")
  1349.         (dest "Thor:")
  1350.         (newname "Docs.info")
  1351.         (noposition)
  1352.         (infos)
  1353.     )
  1354. )
  1355.  
  1356. ;*****************************
  1357. ;***** WE ARE ALMOST DONE ****
  1358. ;*****************************
  1359.  
  1360. ; make sure that default-dir is pointing to the right place
  1361. (set @default-dest Thor_Dir)
  1362.     
  1363. ; final message for our viewers
  1364.     (set end_text (cat "Hope you like THOR! Don't hesitate to "
  1365.                     "send us comments, bugreports and suggestions."))
  1366.  
  1367. (makeassign "Thor_Install")
  1368. (makeassign "BBSData")
  1369. (makeassign "Thor_Disk" (safe))
  1370.  
  1371. (if (= V3_Update yes)
  1372.     (
  1373.         (makeassign "BBSData")     
  1374.     )
  1375. )
  1376.  
  1377. ; now for the exit
  1378.     (exit end_text)
  1379.  
  1380.